Control Lotus Notes from DXL

For a nighttime batch process with DOORS, I have to login into Lotus Notes and extract some information from a datebase therein.
How do I control this from DXL? Does somebody have a snippet of code how to log in (with username & password) and how to leave / close Notes afterwards?

Thank you ion advance
toni_D - Thu Jul 07 13:12:22 EDT 2011

Re: Control Lotus Notes from DXL
OurGuest - Thu Jul 07 15:09:04 EDT 2011

Appears that Lotus Notes has ole automation and here is an example of excel controling Lotus Notes. But you would have to convert to DXL syntax.

Sub Button1_Click()
  MsgBox "this is button on my spread sheet"
  Dim s As Object
  Dim db As Object
  Dim doc As Object
  's and db declared in general as object
  Set s = CreateObject("Notes.Notessession") 'create notes session
  Set db = s.getdatabase("", "") 'set db to database not yet named
  Call db.openmail 'set database to default mail database
  Mycell = Sheet1.Cells(1, 4)
  Set doc = db.createdocument ' create a mail document
  msg = "Mail has been sent: " & Date & " " & Time & Chr(10) & 'these 2 lines need...
  "The value in Cell D1 [ " & Mycell & " ] is in the body of the message" '...to be put on one line
  Call doc.replaceitemvalue("SendTo", s.UserName) 'Notes client's user name (for testing)
  Call doc.replaceitemvalue("Subject", "Excel message")
  Call doc.replaceitemvalue("Body", msg)
  Call doc.Send(False) 'send the message 'send the message
  MsgBox doc.getitemvalue("Subject")(0) & " has been sent"
  Set s = Nothing ' close connection to free memory
End Sub